home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tv.d64 / bio-printer.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  139 lines
  1. 100 REM BIOPRINTER 6.0
  2. 110 DIMA%(12),M$(12)
  3. 120 PRINT"[147]"TAB(9)" B I O P R I N T E R "
  4. 130 INPUT"INPUT DEVICE #, SCREEN=3 PRINTER=4";DV
  5. 140 IFDV<>3ANDDV<>4THEN130
  6. 150 OPEN4,DV
  7. 160 CO=39
  8. 170 REM*FOR80 COL:IFDV=4THENCO=79
  9. 180 S$=CHR$(1):CL=INT((CO-10)/2):CN=CL+10
  10. 190 FORI=1TO10:CR$=CR$+CHR$(13):NEXT
  11. 200 FORI=1TOCO:SP$=SP$+" ":AS$=AS$+" ":AR$=AR$+"--":NEXT
  12. 210 FORI=1TO12:READA%(I):NEXT
  13. 220 FORI=0TO6:READDAY$(I):NEXT
  14. 230 FORI=1TO12:READM$(I):NEXT
  15. 240 READDD$
  16. 250 INPUT"INPUT YOUR NAME";N$
  17. 260 LETZ=0
  18. 270 INPUT"INPUT BIRTH DATE MM,DD,YY";MB,DB,YB
  19. 280 MS=INT(MS):DS=INT(DS):YS=INT(YS)
  20. 290 INPUT"INPUT START DATE MM,DD,YY";MS,DS,YS
  21. 300 MB=INT(MB):DB=INT(DB):YB=INT(YB)
  22. 310 DEFFNI(X)=INT(CL*SIN(2*(null)*X/33)+.5)
  23. 320 DEFFNE(X)=INT(CL*SIN(2*(null)*X/28)+.5)
  24. 330 DEFFNP(X)=INT(CL*SIN(2*(null)*X/23)+.5)
  25. 340 TS=INT(DS+365.25*YS+A%(MS)+.01*MS-.03)
  26. 350 TB=INT(DB+365.25*YB+A%(MB)+.01*MB-.03)
  27. 360 X=TS-TB
  28. 370 INPUT"HOW MANY DAYS TO RUN";SP
  29. 380 PRINT"WOULD YOU LIKE THE BIORHYTHM THEORY"
  30. 390 INPUT"EXPLAINED ON YOUR PRINTOUT";P$
  31. 400 SP=SP-1
  32. 410 RB=TB-1-INT((TB-1)/7)*7
  33. 420 PRINT"[147]";
  34. 430 PRINT#4,"";S$"********** B I O R H Y T H M **********"
  35. 440 PRINT#4,LEFT$(CR$,2)
  36. 450 IFLEFT$(P$,1)="Y"THEN GOSUB1130
  37. 460 T$=" ANALYSIS FOR "+N$+" "
  38. 470 T2$=S$:GOSUB1060
  39. 480 PRINT#4,"                 "
  40. 490 T$=" BORN "+DAY$(RB)+", "+M$(MB)+STR$(DB)+", 19"
  41. 500 T$=T$+RIGHT$(STR$(INT(YB/10)),1)+RIGHT$(STR$(YB),1)+" "
  42. 510 T2$="":GOSUB1060
  43. 520 R=TS-1-INT((TS-1)/7)*7
  44. 530 GOTO660
  45. 540 T$=" STARTING DATE "+DAY$(R)+","+M$(MS)+STR$(DS)+", 19"
  46. 550 T$=T$+RIGHT$(STR$(INT(YS/10)),1)+RIGHT$(STR$(YS),1)+" "
  47. 560 T2$="":GOSUB1060
  48. 570 T$=STR$(INT(23*(X/23-INT(X/23))))+" DAYS INTO THE PHYSICAL CYCLE"
  49. 580 T2$="":GOSUB1060
  50. 590 T$=STR$(INT(28*(X/28-INT(X/28))))+" DAYS INTO THE EMOTIONAL CYCLE"
  51. 600 T2$="":GOSUB1060
  52. 610 T$=STR$(INT(33*(X/33-INT(X/33))))+" DAYS INTO THE INTELLECTUAL CYCLE"
  53. 620 T2$="":GOSUB1060
  54. 630 T$="P = THE PHYSICAL CYCLE":T2$="":GOSUB1060
  55. 640 T$="E = THE EMOTIONAL CYCLE":T2$="":GOSUB1060
  56. 650 T$="I = THE INTELLECTUAL CYCLE":T2$="":GOSUB1060
  57. 660 PRINT#4
  58. 670 PRINT#4,SPC(13)"DOWN                UP"
  59. 680 GOSUB1300
  60. 690 GOSUB1320
  61. 700 REM
  62. 710 T$=LEFT$(DAY$(R),3)+" "+MID$(DD$,2*DS-1,2)+" [161]"+M$(MS)
  63. 720 F(0)=CN:F$(0)="*"
  64. 730 F(1)=CN+FNI(X):F$(1)="I"
  65. 740 F(2)=CN+FNE(X):F$(2)="E"
  66. 750 F(3)=CN+FNP(X):F$(3)="P"
  67. 760 F=0
  68. 770 FORI=0TO2
  69. 780 FORJ=I+1TO3
  70. 790 IFF(I)<F(J)THEN850
  71. 800 IFF(I)=F(J)ANDF(I)=CNTHENIFF(I)=CNTHENF(I)=0:F$(I)="":F$(J)="C":F=1:GOTO850
  72. 810 IFF(I)=F(J)THENF(I)=0:F$(I)="":F$(J)="X":GOTO850
  73. 820 Q=F(I):Q$=F$(I)
  74. 830 F(I)=F(J):F$(I)=F$(J)
  75. 840 F(J)=Q:F$(J)=Q$
  76. 850 NEXTJ,I
  77. 860 IFF=1THENT$=T$+LEFT$(AR$,CN-1-LEN(T$))
  78. 870 FORI=0TO3
  79. 880 W=LEN(T$)
  80. 890 IFF(I)<=WTHEN910
  81. 900 T$=T$+LEFT$(SP$,F(I)-W)+F$(I)
  82. 910 NEXT
  83. 920 PRINT#4,T$:X=X+.5:IFINT(X)<>XTHENT$="       [161]":GOTO720
  84. 930 IFZ=SPTHEN1030
  85. 940 R=R+1:IFR=7THENR=0
  86. 950 DS=DS+1:IFMS=4ORMS=6ORMS=9ORMS=11THENL=30:GOTO990
  87. 960 IFMS=2ANDYS/4=INT(YS/4)THENL=29:GOTO990
  88. 970 IFMS=2THENL=28:GOTO990
  89. 980 L=31
  90. 990 IFDS>LTHENDS=DS-L:MS=MS+1:GOTO1010
  91. 1000 T$=LEFT$(DAY$(R),3)+" "+MID$(DD$,2*DS-1,2)+" [161]":Z=Z+1:GOTO720
  92. 1010 IFMS=13THENMS=1:Z=Z+1:GOTO700
  93. 1020 Z=Z+1:GOTO700
  94. 1030 GOSUB1300:GOSUB1320
  95. 1040 FORSS=1TO3:PRINT#4,:NEXT
  96. 1050 GOTO250
  97. 1060 CT=INT(CO/2)
  98. 1070 IFT2$=""THENCT=CO
  99. 1080 T1=INT((CT-LEN(T$))/2)
  100. 1090 IFT1<1THENPRINT#4,T$:GOTO1120
  101. 1100 T2$=T2$+LEFT$(AS$,T1)+T$
  102. 1110 PRINT#4,T2$:PRINT#4
  103. 1120 RETURN
  104. 1130 PRINT#4,"THE PURPOSE OF BIORHYTHM IS TO PREDICT"
  105. 1140 PRINT#4,"A PHYSICAL, EMOTIONAL AND INTELLECTUAL"
  106. 1145 PRINT#4,"PATTERN THAT INDICATES YOUR UP AND"
  107. 1150 PRINT#4,"DOWN DAYS FOR ANY PERIOD OF TIME."
  108. 1155 PRINT#4,"   BIORHYTHM CAN SHOW WHICH DAYS WERE"
  109. 1160 PRINT#4,"GOOD OR BAD FOR YOU BEGINNING WITH"
  110. 1170 PRINT#4,"YOUR BIRTH.  IT CAN ALSO SHOW YOU WHICH"
  111. 1175 PRINT#4,"FUTURE DAYS WILL BE GOOD OR BAD FOR"
  112. 1180 PRINT#4,"YOU."
  113. 1182 PRINT#4,"   THESE PREDICTIONS ARE BASED ON"
  114. 1190 PRINT#4,"SCIENTIFIC STUDIES TO DETERMINE WHY"
  115. 1195 PRINT#4,"ACCIDENTS OCCUR.  IT WAS LEARNED"
  116. 1200 PRINT#4,"THROUGH THESE STUDIES THAT A PHYSICAL"
  117. 1210 PRINT#4,"CYCLE OCCURS EVERY 23 DAYS, AN"
  118. 1215 PRINT#4,"EMOTIONAL CYCLE OCCURS EVERY 28 DAYS,"
  119. 1220 PRINT#4,"AND AN INTELLECTUAL CYCLE OCCURS EVERY"
  120. 1230 PRINT#4,"33 DAYS."
  121. 1232 PRINT#4,"   THE CRITICAL DAYS OCCUR DURING THE"
  122. 1235 PRINT#4,"TRANSITION FROM POSITIVE TO NEGATIVE"
  123. 1240 PRINT#4,"STATES.  DURING THE CRITICAL DAYS YOU"
  124. 1250 PRINT#4,"ARE MORE PRONE TO ERRORS, ACCIDENT AND"
  125. 1255 PRINT#4,"PHYSICAL SETBACKS."
  126. 1260 PRINT#4,"   THIS BIORHYTHM PLOT FLAGS THE"
  127. 1270 PRINT#4,"CRITICAL DAYS."
  128. 1280 PRINT#4:PRINT#4
  129. 1290 RETURN
  130. 1300 FORI=1TOCO:PRINT#4,"-";:NEXT:PRINT#4
  131. 1310 RETURN
  132. 1320 FORI=1TOCO:PRINT#4,"-";:NEXT:PRINT#4
  133. 1330 RETURN
  134. 1340 DATA0,31,59,90,120,151,181,212,243,273,304,334
  135. 1350 DATAMONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAY
  136. 1360 DATAJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST
  137. 1370 DATASEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  138. 1380 DATA" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031"
  139.